home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / comms / other / aminetfilerequester / rexx / exportyam.rexx next >
OS/2 REXX Batch file  |  1999-11-29  |  649b  |  39 lines
  1. /*
  2. ** ExportYAM.rexx
  3. ** © 1999, Yves Grabowsky
  4. **
  5. ** THIS SCRIPT IS PART OF THE AMINETFILEREQUESTER PACKAGE
  6. ** DO NOT MODIFY!
  7. ** export request mail into YAM
  8. */
  9.  
  10. if ~show("P", "YAM") then exit(20)
  11.  
  12. OPTIONS RESULTS
  13. OPTIONS FAILAT 20
  14.  
  15. parse arg tempfile ftpaddress email delmail
  16.  
  17. call COMPRESS(delmail)
  18.  
  19. IF delmail = 1 then do
  20.     ADDRESS YAM
  21.     MAILWRITE
  22.     WRITEFROM email
  23.     WRITEREPLYTO email
  24.     WRITETO ftpaddress
  25.     WRITESUBJECT "Request"
  26.     WRITELETTER ""tempfile""
  27.     WRITEOPTIONS DELETE
  28.     WRITEQUEUE
  29.     end
  30. ELSE DO
  31.     ADDRESS YAM
  32.     MAILWRITE
  33.     WRITEFROM email
  34.     WRITEREPLYTO email
  35.     WRITETO ftpaddress
  36.     WRITESUBJECT "Request"
  37.     WRITELETTER ""tempfile""
  38.     WRITEQUEUE
  39.     end